home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / dan_am.inc < prev    next >
Encoding:
Text File  |  1998-07-24  |  2.3 KB  |  156 lines
  1. *---------------------------------------
  2. *
  3. *    â_âjü[ò\Ī
  4. *
  5. *    ÆåìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. mid_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subq.w    #8,d1
  14.     subi.w    #16,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$0011,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d2
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     rts
  32. @@:
  33.     addi.w    #$4011,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d2
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     rts
  47. *---------------------------------------
  48. mid_a:
  49.     move.w    C_X(a1),d1
  50.     move.w    C_Y(a1),d2
  51.     tst.w    C_LR_F(a1)
  52.     bne    @f
  53.  
  54.     subq.w    #8,d1
  55.     subi.w    #16,d2
  56.     addi.w    #$0013,d7
  57.     move.w    d1,(a6)+
  58.     move.w    d2,(a6)+
  59.     move.w    d7,(a6)+
  60.     move.w    #$0003,(a6)+
  61.  
  62.     addi.w    #16,d1
  63.     addq.w    #1,d7
  64.     move.w    d1,(a6)+
  65.     move.w    d2,(a6)+
  66.     move.w    d7,(a6)+
  67.     move.w    #$0003,(a6)+
  68.  
  69.     subi.w    #16,d1
  70.     addi.w    #16,d2
  71.     addq.w    #1,d7
  72.     move.w    d1,(a6)+
  73.     move.w    d2,(a6)+
  74.     move.w    d7,(a6)+
  75.     move.w    #$0003,(a6)+
  76.  
  77.     addi.w    #16,d1
  78.     addq.w    #1,d7
  79.     move.w    d1,(a6)+
  80.     move.w    d2,(a6)+
  81.     move.w    d7,(a6)+
  82.     move.w    #$0003,(a6)+
  83.  
  84.     rts
  85. @@:
  86.     subi.w    #24,d1
  87.     subi.w    #16,d2
  88.     addi.w    #$4014,d7
  89.     move.w    d1,(a6)+
  90.     move.w    d2,(a6)+
  91.     move.w    d7,(a6)+
  92.     move.w    #$0003,(a6)+
  93.  
  94.     addi.w    #16,d1
  95.     subq.w    #1,d7
  96.     move.w    d1,(a6)+
  97.     move.w    d2,(a6)+
  98.     move.w    d7,(a6)+
  99.     move.w    #$0003,(a6)+
  100.  
  101.     subi.w    #16,d1
  102.     addi.w    #16,d2
  103.     addq.w    #3,d7
  104.     move.w    d1,(a6)+
  105.     move.w    d2,(a6)+
  106.     move.w    d7,(a6)+
  107.     move.w    #$0003,(a6)+
  108.  
  109.     addi.w    #16,d1
  110.     subq.w    #1,d7
  111.     move.w    d1,(a6)+
  112.     move.w    d2,(a6)+
  113.     move.w    d7,(a6)+
  114.     move.w    #$0003,(a6)+
  115.  
  116.     rts
  117. *---------------------------------------
  118. mid_t:
  119.     move.w    C_X(a1),d1
  120.     move.w    C_Y(a1),d2
  121.     subq.w    #8,d1
  122.     subi.w    #16,d2
  123.     tst.w    C_LR_F(a1)
  124.     bne    @f
  125.  
  126.     addi.w    #$0017,d7
  127.     move.w    d1,(a6)+
  128.     move.w    d2,(a6)+
  129.     move.w    d7,(a6)+
  130.     move.w    #$0003,(a6)+
  131.  
  132.     addi.w    #16,d2
  133.     addq.w    #1,d7
  134.     move.w    d1,(a6)+
  135.     move.w    d2,(a6)+
  136.     move.w    d7,(a6)+
  137.     move.w    #$0003,(a6)+
  138.  
  139.     rts
  140. @@:
  141.     addi.w    #$4017,d7
  142.     move.w    d1,(a6)+
  143.     move.w    d2,(a6)+
  144.     move.w    d7,(a6)+
  145.     move.w    #$0003,(a6)+
  146.  
  147.     addi.w    #16,d2
  148.     addq.w    #1,d7
  149.     move.w    d1,(a6)+
  150.     move.w    d2,(a6)+
  151.     move.w    d7,(a6)+
  152.     move.w    #$0003,(a6)+
  153.  
  154.     rts
  155. *---------------------------------------
  156.